

preserve
keep if round==1



*** Fig 2

hist 	type_overall_naivete if treatment==1 | treatm==2 | treatm==6, ///
		w(.02) xlabel(-1 0 1 2) freq title("Distribution of types", color(black)) xtitle("Implied neglect type",size(medlarge)) ///
		graphregion(fcolor(white) lcolor(white)) bcolor(black)
		graph export "$pathout/Figs/Hist_agg_treatment_bw.pdf", replace


hist 	type_overall_naivete if (treatment==1 | treatm==2 | treatm==6) & max_consistent_naivete>2, ///
		w(.02) xlabel(-1 0 1 2) yline(80,lstyle(grid)) freq ///
		title("Distribution of consistent types", color(black)) xtitle("Implied neglect type",size(medlarge)) ///
		graphregion(fcolor(white) lcolor(white)) bcolor(black)
		graph export "$pathout/Figs/Hist_agg_treatment_consistent_bw.pdf", replace




**** Fig 3

hist 	type_overall_naivete if treatment==10, ///
		w(.02) xlabel(-1 0 1 2) freq ///
		title("Distribution of types in {it:Random}", color(black)) xtitle("Implied neglect type",size(medlarge)) ///
		graphregion(fcolor(white) lcolor(white)) bcolor(black)
		graph export "$pathout/Figs/Hist_agg_random_bw.pdf", replace

hist 	type_overall_naivete if treatment==10 & max_consistent_naivete>2, ///
		w(.02) xlabel(-1 0 1 2) yscale(range(0 25)) ylabel(5 10 15 20 25) yline(25,lstyle(grid)) freq ///
		title("Distribution of consistent types in {it:Random}", color(black)) xtitle("Implied neglect type",size(medlarge)) ///
		graphregion(fcolor(white) lcolor(white)) bcolor(black)
		graph export "$pathout/Figs/Hist_agg_random_consistent_bw.pdf", replace

restore
